home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / eue10.zip / USERATIO.PRG < prev    next >
Text File  |  1992-12-29  |  2KB  |  50 lines
  1. *Extended User Editor (useratio) - version 1.0 12/30/92 (c) 1992 James E. Swarm
  2. *
  3. *This version of the program is fully working, and is to be considered
  4. *shareware.  If you use this software I ask that you register it with
  5. *a donation to my BBS.  Registered users will receive full tdbs source
  6. *(available for download) for both the USERLIST and USEREDIT program.  
  7. *A donation is $20.00 or higher... thats up to you, but the better 
  8. *responce I get, the more I will update the programs.
  9. *
  10. *Please send all donations to:
  11. *
  12. *James E. Swarm
  13. *
  14. *P.O. Box 361093
  15. *Strongsville, Ohio 44136
  16. *BBS (216)237-4980
  17. *
  18. *WARNING this code changes user flags A1 4!!!
  19. * 
  20. SET EXCLUSIVE OFF
  21. SET ESCAPE OFF
  22. PUBLIC up_byte,down_byte,upload,download,user
  23. if uansi()
  24.         set color to w+
  25. endif
  26. a1 = uauth(1)
  27. use "useredit"
  28. set index to "username"
  29. user = uname()
  30. seek user
  31. if .NOT. found()
  32.         ? ""
  33.         ? "User Database Record Not Found, please contact sysop."
  34.         ? ""
  35.         a1_off = stuff(a1,4,1,".")
  36.         set = ulreplace(uauth,1,a1_off)          && unknown user flag off
  37.         wait
  38.         quit
  39. endif
  40. up_byte = ulpeek(139,4)
  41. down_byte = ulpeek(135,4)
  42. if down_byte >= up_byte * f_ratio1
  43.         a1_on = stuff(a1,4,1,"X")               && unable to dl set flag on
  44.         set = ulreplace(uauth,1,a1_on)          && replaces A1 flag 3
  45. else
  46.         a1_off = stuff(a1,4,1,".")
  47.         set = ulreplace(uauth,1,a1_off)         && ok to dl set flag off
  48. endif
  49. quit
  50.